Facturación Seiton

1 pkgs

Code

library(tidyverse)
library(tsibble)
library(lubridate)

2 Datos

2.1 Importación

Enlistar los archivos de Excel.

Code

archivos <- unzip("Facturass 2.zip") |> 
  as_tibble() |> 
  filter(str_detect(value, ".xlsx"),
         str_detect(value, "MACOSX", negate = TRUE)) |> 
  pull(value)

Descargar los datos.

Code

datos_tbl <- archivos |> 
  map_df(~ readxl::read_excel(.x, col_types = "text"))|> 
  janitor::clean_names()
  
datos_tbl

Warning

Hace falta modificar las columnas numéricas.

tidyverse

2.2 Limpieza

Code

datos_tbl_tidy <- datos_tbl |> 
  mutate(
    across(c(n_contrato, n_cliente, bonificadas), as.numeric), #completar las columnas numéricas
    facturado = if_else(is.na(dmy(facturado)),
                    as.Date(as.numeric(facturado), origin = "1899-12-30"),
                    dmy(facturado))     
  ) |> 
  drop_na(facturado)

datos_tbl_tidy